home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 2 / Apprentice-Release2.iso / Tools / Languages / MacMETH 3.2.1 / Examples / XYplane.DEF < prev    next >
Encoding:
Modula Definition  |  1992-12-29  |  278 b   |  20 lines  |  [TEXT/MEDT]
  1. DEFINITION MODULE XYplane;
  2.  
  3.     CONST
  4.         draw = 1;
  5.         erase = 0;
  6.  
  7.     VAR
  8.         H: INTEGER;
  9.         W: INTEGER;
  10.         X: INTEGER;
  11.         Y: INTEGER;
  12.  
  13.     PROCEDURE Clear;
  14.     PROCEDURE Dot (x, y, mode: INTEGER);
  15.     PROCEDURE IsDot (x, y: INTEGER): BOOLEAN;
  16.     PROCEDURE Key (): CHAR;
  17.     PROCEDURE Open;
  18.  
  19. END XYplane.
  20.